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=- 088196 Pullction command. in  BuperBasic adds the user ` 
|o ta add functions to SuperBasic. Some functions are aready ` 

gaiti, like: COS, SIN, INT,- etc. Without the DEFine - 

z F- mmand the user can still write his own functions, 

with: the command the user = uses his functions dont rod 


Ly functione. 














T maple function lieted below. The. fueti- | 
| ጅር place As lese than 5 then it ‘rounds’ down. “Otherwiee | 





lom the: ‘weer defines a function he has to specify what n NE 
of entry variables are needed. Note that in line 100 that | 
there de. an X in the parentheses. . This is the variable or c 
number — that the function evaluates On. The user may "un 
1 mor n oae variable to evaluate on. The number of vari- 
| ables sent të the function. must equal the nuumber of verdana 
| . $99 that the function evaluates on. If it needs. three. Marie. 
L M then. the user must send it three variables. 














. 18. next. 34869. makes the two ሃደ 16616 10662 by the function 
"t or temparary. LoCal variables are used only in the. 
|. - function. Once ‘the function is finished the variables ` 
| Sheep pear: from memory. This way they are not confused with - 
|. other = variables eed, in other RET of the peourmm, Pues ልዩ... 

anaes ዳን : 










OEC Turn command: 4ይ. ‘weed. to’ send እፅ edule of tne function i 
| 55. to the line that called it. There may be more than one | 
D oU + Sat the function, There must ‘be a RETurn for any case | 

- gn must 








ction may run accross. 18 other. words, the. functi — 
t always return Sone s. | LN NUS 
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HT am merry. ‘that. Iam a little going this 36896 out to you. 






bugs” worked out of the programs that are in 
| yroblem is the size of the programs 
anges for this issue. So I hope. . 
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Even though the first order of business on the QL is the 
proper use of the microdrive cartridge, the QL User’s Guide 
starts you CLONEing programs without as much as a 'by your 
leave, sir?’ about its USE & ABUSE. 


In QLUG's CONCEPT section The DOs & DON'Ts of this little 
jewel rates three quarters of a page. The capacity of each 
CARTRIDGE is a minimum of 200 sectors or 100 Kbytes and can 
store up to 255 sectors. 


QDOS uses available free memory space on the cartridge as 
microdrive buffers, when necessary to improve performance, to 
store your typing or other data as the case may be. This, Í 
learned the hard way.. ኻ 
On Wew Years Eve 1986, while typing on a term paper for my 
daughter until the wee hours of the new year. I had noticed 
mdv2 frequently running and shutting off as i typed and 
realized QDOS had opened a temporary file on mdv2 . 


I had no idea how to retrieve the data QDOS had placed on the 
md. Do you? I searched the QLUG without avail. Finally on a 
new cartridge I saved what I could, but lost about two pages 
Of typing. An  unepanded QL will store about two and a half 
pages in its memory before it fills and QDOS starts a 
temporary file on md2 . ' 


^A new cartridge needs  FORMATting several times in order to 
stretch the tape and condition the cartridge. Since 
FORMATting several cartridges takes time. Here is a small 
program that will FORMAT as many cartridges as you wish and 
‘give you time todo more necessary chores. It consists of 
two-ten pass loops in tandem nested in a third loop that 
determines how many times you will need these ten pass loops. 


100 CLS < 
110 PRINTNN "Enter number of cassettes to be FORMATted” 
120 INPUTN« "Number of cassettes”; n 
] | 130 FOR x=1 TO n 
vo 1 140 for a=1 TO 10 
: 150 PRINT a; 


160 FORMAT mdvl. 





` 


Formations Cart. cont.: 


170 END FOR a 
180 FOR b=1 TO 10 
190 PRINT b; 
200 FORMAT mdv2 _ 
210 END FOR b 

.. 220 CLS 
239 CSIZE 3,1:AT 4,10: PRINT ‘HOORAY!’ :CSIZE 0,0 
240 PAUSE 200 
250 END FOR x | 
Load cartridges to be FORMATted in mdvi and  mdv2 and run 
the program. In line 120 INPUT 1/2 the number Of cartridges 
you will FORMAT. This sets the x-loop x-1 TO n(1/2 the number 
of cartridges to be formatted). Mdvi runs and FORMATs ten 
times printing the event number and the number of sectors 
each time. Replace FORMATTed cartridge in mdv1l_ when mdv2. 
runs and FORMATs ten times printing the event number and 
number of sectors. When both mdvi & mdv2 have completed 

their loop the screen will clear and ’HOORAY’ in large 
letters will be printed in the. middle of your screen. 
Replace the cartridge in mdv2 . 
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In the QLUI, it is the sole responsibility of the contri- 
buting authors to insure that no copyright infringements have 
Occur in their respective contributions. The QLUI Newsletter 
and the Editor/Publisher is not are responsible for any infr- 
ingements. Original material printed in this Newsletter may 
Only be reprinted by other T/S user groups and eductional 
instintutions without prior written consent by either the 
Editor/Publisher or the authors. A11 others must first obtain 
written permission prior to reprint. An ackowledgement of the 
QLUI and the author must be included. | NOTE: Opinions 
expressed in this Newsletter are those of the author of the 
particular article and are not necessarily those of the QLUI 
or the Editor/Publisher. ý 
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MAKE COFFEE <=ብቲ.ፅ.5 ።- 


‘about the program you are going to check. You will have to 
answer them before going on. The first is the title of the 
program, next is the starting point which can be one or if 
you know the exect starting number. The next is the finishing 
number which you can use 99999 or what ever is the the last 
number used + 1. And finally the question 'Do you want to hav- 

(4) e a print out?’ I hope that you find this programa great 

hr help and use it as much as possible. Each program will be 
have the checksum with it. 


I will get into more concerning the checksum program.and how 
to ensure the correcting of the basic programs you have enter- 
ed into your computer. 
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HOW would you look at yourself, as an expect on computers or 
just average in dealing with a computer? I would say that 
just about everyone has reach a point of fristration. This is 
in dealing with the entering of a Basic program from a book 


or magazine to a computer. This has made us all wonder if it 


was correct. This is even more so with a longer programs. 
Just think about this for a minute and raise your right hand 
if it is true. Now there are those who are able to know that 
they have enter all lines of a program correctly. To those 
individuals I want to give them a big hand. However 1 know 
that there is a greater number of us that are not completely 
sure, that they have correctly entered the program. I have to 
put myself in this group. This main group are the ones that I 
am directing this article toward. This is not to say that I 
am leaving the others out. In fact those individuals that can 
enter programs correctly can be of a great help to us by 
giving us any ideas or suggestions that will make easier for 
us. This is as long as they are willing to pass it on. Most 
individuals have questions while entering a basic program 
into their computers. 


WELL for those who have not heard or are not completly famili- 


ar with one way of ensuring that their programs are correctly 
entered properly. There is a checksum generated program. This 
program provides a generated number for each line of a basic 
program entered into a computer. I know that many of you are 
saying 'what is a checksum!'. It is a program that reads each 
line of a basic program and then counts the number of bytes 
and then prints them out for you. I am still working on just 
how it completly works, myself. The program that I have at 


present and am using, was obtained for a QL book called 'THE 


WORKING SINCLAIR QL' by David Lawrence. It provides a listing 


. Of numbers for each line. However I am starting to work on 


making some changes to this program to match some of the 
other checksum programs that are available for the other 
computers and for software basic programs. This program is a 


good one and I will use it and provide the checksum numbers 
for all programs that are printed in the QLUI newsletter. So 
everyone will have this numbers available to them as they put 


their copy of the program into their computers.. 


NOV I will explain how this program will provide you with the 
numbers. You first load the 'CSG Program’ into the computer 
with lrun device csg. Now there will be a. couple of questions 











COMPUTER THERAPY 


by BILL WOODWARD - 
LAKE BUTLER, FL. 


(ED NOTE: ን THIS article is the second part of the article 


"+ written about the QL computer written by Bill Woodward and 


shows how the computer can be a therapy tool. | WF. 


THERE IS NO SUCH THING AS A FREE MEAL or a computer that 
runs itself as you wish it to do. I know what you are 
experiencing when you sit down to the computer and stare the 
keyboard and the cursor blinks back at you. 


I am going to try to remember the times I have wondered to my- 
self, "Which key do I punch to get this thing started?”. Then 
I will write out an article about WHAT DO I DO AFTER I TURN 
ON THE SWITCH. 


I have had to buy software, firmware, and hardware to get my 
computer to obey me. I am-still in the novice class after 
eight years. I am not afraid to ask questions, or to have any 
one to show me how to do something. Most of what work with 
was developed or inspired by others. Two operations that are 
a must in computing is to SAVE and BACKUP frequently. 1) DO 
NOT LEAVE YOUR COMPUTER EVER, WITHOUT SAVING WHAT YOU WORKING 
ON! 2) DO NOT QUIT FOR THE DAY WITHOUT BACKING UP YOUR DISK. 
OR MIRCO CARTRIDGE. When you have worked for hours and failed 
to SAVE or BACKUP and had sudden lighting strike and your mon- 
itor looks like a finger painting by Gargantua, you will wish 
you had both SAVEd and BACKUPped! Believe me. 


SO I put my Bank Statement Reconiliation ideas to work on the 
QL spread sheet. You saw the results on the front page of the 
QLusa, vol. 1988/issue #1. A normal programmer should write a 
similar programer in a couple of hours,but it took me several 
years. Each idea had to be developed and tested to see if it 
did the work that I needed. Some ideas came to me in the midd- 
le of a deep sleep and by the time I was awake, they had van- 
ished but returned at a later date. Since my strokes, I have 
had to remove the word FRUSTRATION from my vocabulary and rep- 
laced it the word INSPIRATION, Now when something will not do 
the work, instead of getting hot and blowing up,I remain calm 
and use the cause of my failure as an incentive to correct 
the problem. I was warned to stay out of all stressful situa- 


tions. ^ 


Xokokokotolokokoororooototokokoorotokcrorotokoororolororororoloorotorcoroorolokokorolorokorototoororoolokeroorok 


NEVER use two words when you can find one that will do just 


as good. 
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Top REMarl ቹቁቹቹቱቶቁቹቾቁቹቹቹቹቁቱቹቹቶቱሕችቹችቹቹቹቹቁችቶች 
131434 KREMark control 
1@20 REMark REGGERE CERK RE ERCE RREK EEE 


1 eye 
1040 
1552 
1 650 
16070 
1 o230 
1030 
1 160 
11180 
11260 
1130 
1140 
1150 
1160 


11/72 


1120 
1199 
100 
la 
1 ፎራ 
1ሯ2(3 
1246 
125 
260 
1:270 
220 
1 230 
1:260 


20160 
du 
FINES 


2040 


2650 


ነቄ ነ 
4207/0 
Oe 
2098 
2180 
ሯፍ|16 
2120 
à 3€ 


2140 


INE 7 ! FAFER 3 ! CLS 
counte | 
INPUT "Name of Programi "programs 
INPUT U” Start Line: ";start 
INFUTN"Finish Line: ";finish 
programt$s"mdvi ” & programt* 
INFUTN"Printer output (Y/N3; “ihard 
hard=hard$="Y" OR hard$zs"y" 
IF hard 

OFEN #7, ser] 
ELE 

OREN #7, ser 

INES7,7 : PAFERT7 , 2 

GL S 7 
END IF 
PRINT#H?, "CHECKSUM TABLE FOR..." j programs 
PRINTR7,N"Start line isi..";gstart 
PRINT4S7,N"Finish line iebr..";finishNN 
OREN #= , progr ans 


REFeGat lines 
INPUT #8, Lines 
Ling numberzlines 
[IF line numbers finish THEN EXIT lines 
IF line number eg tar t 


aedes 


END IF 
1ዮ EOF CHE) THEN EXIT lines 
END REFeat lines 


PRINT47 : CLOSE #7 
CLOSE #3 


REMark. ሕፍሕፋፋቁቹፋቁፋቁቶቁቶሕቹሕቹቹቁቶቁቹቁቹቶቹሕቹቶቾቹቿችቹቿችቕ 
DEFine FROCedure check peint 
REMark ቹቹፍቹቹቹቹቹሕቿሕ፻ቿቹፍቹቹቹቹቾቹቹቹቾችቶችችቾችቿችችቹ 


IF ling number/ 1@@@2INTC Ling number / 1000) 
PRINTHZ, \Nline number, 
COUN LEY 

END IF d 

numb rds" "5 check sum 

Number $=nunberS CLENC number $34 TO 

PRINTS, number; 

cauntscountl | 

1 ፣ hard AND counts 
ር =ዚብገፒ።፡፡ዕኃ 
FRINTSÓ7 

END IF 


2150 END DEFine check print 
320600 REMark ቹቹቹሕፋቹቾቹቾቹቹቹቹቹሕቹቹቹቹቹችችቹችቶችቶቶቆ - 


ሔ፤ aati 


Da oe OO EEEE DEE E E E EE 








File Name = csqg 


3610 DEFine FROCedure analyse. 
2020 REMark ቁቹቹቹቹቹቾቹቹቹቾችችችቹቹችቾቹችቶቾችችቾቶችች 


3030 checkgumzó ‘ 
3040 FOR i=] TO ኪፎስአር፤ጊ11 ነገፍቅ 
3650 IF line$cidee” " 
3060 IF i/Z2-4INT(Ci/Z) 
^ 3070 checksumechecksum+CODE( Linett 3 ን ን 
30500 ELSE 
3090 checksunmzchecksum-CODEClinesii)) 
3109 END IF 
2116 END IF 
3120 NEXT i 


3130 END DEFine analyse 
File Size = 1563 


Total Pages = 2 
Total Lines = && 


CHECKSUM TABLE FOR:. .mdvi ር 5፡3 
Start line isi.. I 


Finish line is:..9999 


| OOGACEOEAOECIECEOCRCEORCROEOIOR OR IORGOROEOK 


-43 -95 -45 476 33 151 

-168 53 119 -212 53  -19 

-115 4 32 253 Bg 55 
246 205 141 63 57 56 

-157 45 | 98 “ 99. ፦2 75 
126 63 -197  -96 X 56 55 
187 30 | 
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-44 -263  -4& 17 194. 81 
54 ፦-8. -79 167 166 .139 
95 93 57 - ፦92 


ኃፅ99፡። ጹሕ ፍቶት ዱፋዷ KERR EER RERRER 


“45 -229 -477 4 112 -143 
-159 +78 -4 -92 &o 59 
| -96 -ይ ር; 


መን. 
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File Name = amont 


ነ 15 WINDOW 512, 256,6, OI CLS: PRINT Amorti zation table ጋዴም ይክ HP 
2@ PRINT 

oe FRINT"UWill calculate monthly payment needed to (M & mortgage” | 

4 40 PRINT"and then print a complete amortization table given...” i 3 

5 59 PRINT"interest rate, principal amount of the loan, starting date ra P 

6 66 FPRINT"either the duration of the loan Cin years or months? ar” 

7 70 PRINT"the monthly payment. The borrowers name can also be included." 

5 20 PRINT | | 

9 96 PRINT | 

10 159 yzO:m-zO:ypzO:yisGQiizeO:mpeü:pzzeQO:1izl:ipgsliyezO:fgzO:efc-ó 

11 116 INFUT’ Name ";na$ | | | | 

12 126 IF LENCna$22Z3 THEN PRINT na$c! TO z3o):PRINT"Maximun name length is 22 ር 
Maracters is this alright? (Y/N)": ELSE GO TO 169 

12 130 a$zINKEYS$:IF a$z""THEN GO TO 1:30 

14 145 IF a$zs"y" OR ልቆ=”ሃ” THEN GO TO 1&6 

15 156 GO TO 110 | 

16 160 INPFUT"Enter principal (Amount Borrowed) "ipis 

17 176 FOR xs1 TO LENCpI$)-1:IEP pl$ox2z"," THEN pl$-pl$c!l TO x~1) 8 pilStx+l TO? 

1g 125 NEXT x | 

19 122 ENPE መው” annual interest rate (ሠ 1/2 X = 8.5) "jrirzr/100 

20 200 በነፎመ=ት / ] ' 

2| =12 INPUT"Enter manthly payment ጋዮ @ to calculate ";mp:IF more THEN GO 10 33 


ማጭ 


22 220 ነገሯ“] | 
23 23@ INFUT"Enter number of years, or @ if you want to enter months "jy 
24 240 IF y»2OTHEN m=y#ti2iGO TO sew l 

2= 256 INPUT” Enter number of months ";m 


ኒ 260 mp=p ] ቆቹ ር MERC Teme ” በነ ን / ር ር ር 1 ተበነ ኃ “ በነ ጋ “ገ ጋ  ከሯ” INT Cmpsk leet. 52/100 | 

27 276 IF (pz-CleOGxpZz-INTCOIOOXp22224,5 THEN pZzcINTCTOOXDp22/100; GO TO 236 

2m 250 p2«CINTCIOUOGEDZÓ*12/100 

29 290 FRINT” Monthly payment will be “jmp 

30 300 PRINT"RHecalculate monthly payment (Y/N)" 

21 21% ፳ከቆ። 1አ8ኗፎሃቆ ; IF an#=""THEN GO TO 316 | 

32 S20 IF an¢="y"OR ant="Y" THEN AT 146,0:G0 TO lee 

33 322 INPUT’ CPOrinter, (Display, or (Booth ” |ይጋጩቆ፣፤ TF ይጋቆ።”ሯ” ዐጸ ea p 






24 325 IF pud$z"d"OR pd$zs"D" THEN p=@! ELSE IF pud$zs"b" QR ይጋቆ=”ፎ” THEN p= 

35 330 FRINT:PRINT"Beginning date (July 15, 1989 is. 7,15,1988)” | 
36 346 INPUT"Maonth ";ml:INPUT"Day "pa INPUT’ Year "jy . | TM l 
37 560 a=lile=1 | | MP É 
39 376 CLS:IF p=@ OR pez THEN FRINT"Amortization Table ";:IF npslTHEN PRINT m; 
39 375 IF p»6 THEN BAUD 6OO:CLOSE! OPEN #4, serz:iPRINT #4,”Amortization Table ";j 
(IF npt THEN PRINT #4, m; P 
49 380 IF p=0 OR pzz THEN npzó:FRINT " Payments of "; ; 
4] 385 IF phó THEN npcGO:PFRINT #4,” Fayments of "; ! ; 


42 390 IF p=0 QR ps2 THEN PRINT mg; 
42 395 IF p»0 THEN PRINT #4,mp; | x ; 
44 400 IF p=@ OR p=Z THEN PRINT" at a rate of “J rt1OO AT @, 62: PRINT" Page "pg: 
sz} +] | 
45 455 IF p»ó THEN PRINT 44," at a rate of ";rt100;;PRINT #4, TO &2;"Page "ipd 
IF p=1THEN 1l=1+] : j 
46 416 IF ps6 OR psz THEN PRINT"Pay"TO 5;"Due"TO 11;"Beginning"TO €— | 
| TO, 32; Principal” TO 43;"Ending"TO 51;"Interest  Frincipal"ilzl-*l " 
£ 415 IF pë THEN PRINT #4, ”"ዞጸሃ”ፐዐ 5;"Due"TO 11;"Eeginning"TO 22:"Interest'TÜ ገ 
OSA. Principal"TO ASi Ending” TO 51;"Interest Principal”: IF pu] THEN 151-1 > | 


File Name = amort : | | | bd 


45 420 IF pzó OR p=? THEN PRINT TD 1;"«*" TO 4A;"Date"TO 13,"Balance a" TÜ 23)" Paymen 
t"TO 34;"Payment"TO 42;"Balance"TO 52;"To Date To Date" | ጊ=1+] 

43 425 IF p26 THEN PRINT #4, TO 1,"4"TO 4;"Date"TO. 13; "Balance" TO 29) "Payment" T 
Ü 34; ”F'ayment”TO 42;"Balance"TO 521 ”ፐኃ Date To Date":1F ps] THEN 1=1+1 ! 
59 430 IF yezó THEN IF p=6 OR p=2 THEN PRINT TO 4 "C" y)” 2" label tyes i 
5] 435 IF ye=@ THEN IF p>@ THEN PRINT #4, TO 4;"C" jy; " 2" i1mleliyezl anm 
52 440 IF የጋ=1 THEN GO TO 1116 . | 

53 450 i=INTC (p1$km2)*4160+ 59/160 

54.460 yiryiti 

55 470 i2ciZ*i 

| 450 pqsmp-i 

490 ypsyptpq ` 

5ኃኃ IF pls<mp THEN pzspz-tpls$:GQ TO 526. 

219 pzepztpu 

520 nzpit$-pq 

530 ON a GO TO 546,580 

546 IF pare THEN GO TO 570 

5560 PRINT"Fayment set too low" 

560 GO TO 166 

» 576 asz | 

S30 IF n»5E-3 THEN GO TO £26 

590 ypsyp-pq*pls$ 

j 600 pugspi$ 

&loó n= 

620 IF p=@ OR psz THEN PRINT 1c;:lcslc-«1 

625 IF p»0 THEN PRINT #4, 1 1! LF pel- THEN 1ር ic] 

6380 IF p=@ OR ps2 THEN PRINT TO dimi; 

&35 IF pee THEN PRINT #4, TO 4;ml; 

640 IF p=0 OR p=2 THEN PRINT"/";d; 

645 IF p>@ THEN PRINT 4&4,"/":dj 
650 IF p=ë@ OR p=2 THEN PRINT TO 11; INT(pISETO00. 53/160; 

655 IF pee THEN PRINT #4, TO 11) INTC O1$41906+ 55/100; 

660 IF p=0 OR p=2 THEN PRINT TO 2531; 

£65 IF p»0 THEN PRINT #4, TO 23351; 

6570 IF p=@ OR pzz THEN PRINT TO 53; INTC pakleo+ 59/166; 

575 IF pee THEN PRINT #4, TO 33; INTCpqx109* 52/1090; 

630 IF pze OR p= THEN PRINT TO 43; INTC n#160+ 53/100, 

6685 IF p>+>@ THEN PRINT #4, TO 3: INT(nt1009,52/100; 

690 IF ይ=ኃ QR p=2 THEN PRINT TO 52; INTCiS#k#1G0+ . 59/7100; 

55 695 IF p»6 THEN PRINT #4, TO S2;INTCi2k]00-.52/1600, 

700 IF p=6 OR p=2 THEN PRINT TO 61) INT(C p2*100+ 59/100 

705 IF p>@ THEN PRINT #4, TO Gl; INTC peak] @6+ 59/7100 

716 GO SUB 9360 

720 IF n«5E-3 THEN GO TO ፳5ፅ 

730 IF ከ]=1ሯፎ THEN GO TO 7660 

740 በቤ1።=ስነ] +!] 

750 GO TO S3 | | 

760 IF p=6 OR pz2 THEN PRINT"Yearend ";y;" Taotals..."; 

765 IF p»6 THEN PRINT 44,"Yearend "yj" Totals..."j 
776 IF pasó OR ps2 THEN PRINT TO 22;yi; 

775 IF p>@ THEN PRINT #4, TO 22jyij 


780 IF npe OR psz THEN PRINT TO 32;yp:iGO SUB ose ነ 
785 IF pee THEN PRINT #4, TO 32;yp:G0 SUB 930 
790 yizO:ypzo PT 


Boo IF ef=] THEN GO TO 870 5. " | 
Sie በነ] = | xa | cw d ኤበ 
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File Name = amort 
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GO TO 456 

BEEF 1,] 

IF ከ1<>1 THEN ef=1; G0 
IF p«oó OR pee THEN FRINT" 
IF p»0 THEN FRINT #4, ” 
PRINT 

FRINT"’ Another 
in$-INKEYS$:IF in$-c"" 
4 IF in$z"Y" OR in$-"y" 
STOF 


IF 1-20 THEN GO TO 97e 
L=1+] 

RETurn 

)zlipgzspgrti 


ggo pn$zINKEYS$:IF bn$z""THEN GO TO Soe 


f1=1 
995 t1$=n 

1660 GO TQ 
1116 RETurn 
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Table produced for "ina$;" by Sinclair C 
Table produced for ";na$," by Sinclair QL” 


ysy*!:1F p=0 OR p=2` THEN: PRINT pg Ayre yy” y” (60 ook PA 
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File Name = lister ET 


.REMark XX LISTER by Timothy Swenson " 
CLS: 
. PRINT 
PRINT 


INK ኃ፣ PRINT NN. . . 
" PROGRAM LISTER" 
ii by Timothy Swenson"NN - ra Sg 


"Enter Name of File to List |!” ' 
" (Enter Drive Nama, ie. MDVI,O" 
infiles me ኸት 


OPEN, IN. #4, infiles 


PRINT 
PRINT 
PRINT 


3 PRINT 
PRINT 


FRINT 


ኣኣ። Enter Print Option á 


i 1) Regular Print” 
* 2) Bold Face” 

" 2) Elite" 

ዘ 4) Italic” 


PRINT " 5) Near Letter Quality"NN 
INPUT "Enter choice ! "ip opt 

PRINT | 
INPUT "Line Numbers? (y/n) ! 
3 optze 

IF a$2"y" OR at$z"Y" THEN 3 opt-l 

CLS 

STRIP 4 | 

AT 16,10; FRINT" PRINTING " 
STRIP 2 | 
OPEN #%3,s5er] 

PRINT #3, CHRS(279;"O” | 
PRINT #3, CHR#( 27); 


niat 


: ngn 4 


IF p, opt. = 2 THEN PRINT #3 

IF p opt = 3 THEN FRINT $3,"G"; 

IF p opt = 4 THEN PRINT &3,"M"; 

IF p opt = 5 THEN PRINT #3,” x1”) 
LINEnumzs1: pagez6; countzl! size= 
header | | 


REPeat loop 

INFUT #4, 1 ከ 

IF l_opt=1 THEN 
IF LINEnumsz9 THEN FRINT #3," "jLINEnum;" "jinf$ 
IF LINEnum»9 AND LINEnumz-99 THEN PRINT i2," "jLINEnum;" 
IF LINEnum»99 THEN PRINT 42,LINEnum;" "jing 

IF EQFC#4) THEN EXIT lopp 


vying 


END IF 
IF l opt=0 THEN PRINT #2, 1ነገቆ 
LINEnumsL INEnum*! | count=counte | 


IF 1 optse AND LENCin$)°79 THEN. countzscountti 
IF l,opts! AND LENCin$€2»75 THEN countscount-*! 
sSize-sizxetLENtint$)-1 

IF countz57 THEN footer! header 

END REPeat loop 

PRINT #3 

PRINT #3,” File Size - "isiz 

PRINT #3,” Total Pages = LE 

IF l opts] THEN PRINT $43," | 
PRINT #3, CHR$( 12); 
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CLOSE #4 
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66 750 PRINT #3,” | 38, PAGE "ipage .. .. G 
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COMING ጌ) | | 
 HOUELIBER - 


WELCOME to the gecond issue of QLUI and you enjoying all of 
« the articles and programs. The following are some of the 
articles and items that I am planning to have appear in the - 


‘+ next issue of the QLUI Newsletter. So I hope that all 


Subscribers and readers will be looking forward to seeing - 
them roll off the press about NOV. 29,1988. 
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Basic program series 
Subscribers’ Public Domain Library 
First Impression of the QL 
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